home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / superv22.zip / GETCHAR.PAS < prev    next >
Pascal/Delphi Source File  |  1986-11-03  |  366b  |  23 lines
  1.  
  2. Function GetChar : char;
  3. Type
  4.    RegPack = record
  5.               AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags: Integer;
  6.              end;
  7.  
  8. Var
  9.    Regs:     RegPack;
  10.    Temp:     Integer;
  11.    Year,Mon,Day: Integer;
  12.  
  13. Begin
  14.    With Regs do
  15.    Begin
  16.       AX := $0000;
  17.       Intr($16,Regs);
  18.       GetChar := chr(lo(AX));
  19.       KeyCode := hi(AX);
  20.    End;
  21. End;
  22.  
  23.